grouped analysis

Super Grouped results

  ggplotly(
ggplot(filter(all_pronouns,total_num_com_in_sub < 100, num_til_quit > 6, post_num < 100)) +
  #geom_point(aes(post_num,contains_we,color=total_num_com_in_sub))+
  geom_smooth(aes(post_num,contains_i,color=total_num_com_in_sub))
)
`geom_smooth()` using method = 'loess' and formula 'y ~ x'

FINAL 3

all_pronouns <- pronoun_by_post_num %>%
#filter(post_num > 0, total_num_com_in_sub > 100), 
mutate(
  num_til_quit = (total_num_com_in_sub - post_num)
) %>% filter(num_til_quit < 5) %>% mutate(num_til_quit = as.character(num_til_quit), contains_wepct = contains_we*100)
ggplot(all_pronouns)+
  geom_point(aes(num_til_quit,contains_we,color = total_num_com_in_sub))

  library(RColorBrewer)
#ggplotly(
ggplot(filter(all_pronouns,  post_num>5), aes(post_num,contains_wepct,group=num_til_quit, color = num_til_quit)) +
  geom_point()+
  geom_smooth(se=FALSE)+ theme_classic(base_size = 15) +
   labs(title = "Collective Pronoun Use in Users' last 5 Comments in a Subreddit" ,
       subtitle = "Comments Grouped by Total Number of Comments in a Subreddit and Remaining Number of comments until last comment\nIncludes all comments from all subreddits where the author has at least 5 comments in that subreddit",
       caption = "") + xlab("Average of all authors' Nth comment in subreddit X") + ylab("Percentage of comments which contain 'We'") +
       scale_color_brewer(palette="Paired")
#)
ggsave("final3.png")
Saving 7.01 x 4.33 in image

ggplotly(
ggplot(filter(all_pronouns,total_num_com_in_sub > 15, total_num_com_in_sub < 400,num_til_quit > 5)) +
  geom_smooth(aes(post_num,ZNcontains_we, color = "We")) +
  geom_smooth(aes(post_num,ZNcontains_i, color = "I")) +
geom_smooth(aes(post_num,ZNcontains_us,color = "Us"  ))+
geom_smooth(aes(post_num,ZNcontains_they,color = "They"))+
geom_smooth(aes(post_num,ZNcontains_them,color = "Them"))+
geom_smooth(aes(post_num,ZNcontains_you,color = "You" ))+
geom_smooth(aes(post_num,ZNcontains_me,color = "Me"  ))
  
)
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
LS0tCnRpdGxlOiAiMDJfY29tbWVudHNfbnVtYmVyX2FuYWx5c2lzIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCiNncm91cGVkIGFuYWx5c2lzCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKcHJvbm91bl9ieV9wb3N0X251bSAlPiUKICBncm91cF9ieShwb3N0X251bSwgdG90YWxfbnVtX2NvbV9pbl9zdWIpICU+JSAKICBzdW1tYXJpc2UoCiAgICAjYWdnX2F1dGhvciA9IHN1bShudW1fYXV0aG9ycyksCiAgICBhZ2dfaSAgICAgID0gc3VtKG51bV9hdXRob3JzKmNvbnRhaW5zX2kgICAgICkvc3VtKG51bV9hdXRob3JzKSwKICAgIGFnZ19tZSAgICAgPSBzdW0obnVtX2F1dGhvcnMqY29udGFpbnNfbWUgICAgKS9zdW0obnVtX2F1dGhvcnMpLAogICAgYWdnX3dlICAgICA9IHN1bShudW1fYXV0aG9ycypjb250YWluc193ZSAgICApL3N1bShudW1fYXV0aG9ycyksCiAgICBhZ2dfdXMgICAgID0gc3VtKG51bV9hdXRob3JzKmNvbnRhaW5zX3VzICAgICkvc3VtKG51bV9hdXRob3JzKSwKICAgIGFnZ190aGV5ICAgPSBzdW0obnVtX2F1dGhvcnMqY29udGFpbnNfdGhleSAgKS9zdW0obnVtX2F1dGhvcnMpLAogICAgYWdnX3RoZW0gICA9IHN1bShudW1fYXV0aG9ycypjb250YWluc190aGVtICApL3N1bShudW1fYXV0aG9ycyksCiAgICBhZ2dfeW91ICAgID0gc3VtKG51bV9hdXRob3JzKmNvbnRhaW5zX3lvdSAgICkvc3VtKG51bV9hdXRob3JzKQogICkgJT4lIGZpbHRlcihwb3N0X251bTw1MiklPiUKZ2dwbG90KCkgKwogIGdlb21fcG9pbnQoYWVzKHBvc3RfbnVtLGFnZ195b3UsY29sb3I9dG90YWxfbnVtX2NvbV9pbl9zdWIpKQogICNmYWNldF93cmFwKH50b3BpY19sZXZlbDEpCmBgYAojI1N1cGVyIEdyb3VwZWQgcmVzdWx0cwpgYGB7cn0KCmFsbF9wcm9ub3VucyA8LSBwcm9ub3VuX2J5X3Bvc3RfbnVtICU+JQojZmlsdGVyKHBvc3RfbnVtID4gMCwgdG90YWxfbnVtX2NvbV9pbl9zdWIgPiAxMDApLCAKbXV0YXRlKAogIG51bV90aWxfcXVpdCA9IHRvdGFsX251bV9jb21faW5fc3ViIC0gcG9zdF9udW0KKQoKbGlicmFyeShwbG90bHkpCgpnZ3Bsb3RseSgKZ2dwbG90KGZpbHRlcihhbGxfcHJvbm91bnMsIG51bV90aWxfcXVpdCA8IDEwKSwgYWVzKHBvc3RfbnVtLGNvbnRhaW5zX3lvdSxncm91cD1udW1fdGlsX3F1aXQsIGNvbG9yID0gbnVtX3RpbF9xdWl0KSkgKwogICNnZW9tX3BvaW50KCkrCiAgZ2VvbV9zbW9vdGgoc2UgPSBGQUxTRSkKKQogIGdncGxvdGx5KApnZ3Bsb3QoZmlsdGVyKGFsbF9wcm9ub3Vucyx0b3RhbF9udW1fY29tX2luX3N1YiA8IDEwMCwgbnVtX3RpbF9xdWl0ID4gNiwgcG9zdF9udW0gPCAxMDApKSArCiAgI2dlb21fcG9pbnQoYWVzKHBvc3RfbnVtLGNvbnRhaW5zX3dlLGNvbG9yPXRvdGFsX251bV9jb21faW5fc3ViKSkrCiAgZ2VvbV9zbW9vdGgoYWVzKHBvc3RfbnVtLGNvbnRhaW5zX2ksY29sb3I9dG90YWxfbnVtX2NvbV9pbl9zdWIpKQopCiAgCiAgZ2dwbG90bHkoCmdncGxvdChmaWx0ZXIoYWxsX3Byb25vdW5zLHRvdGFsX251bV9jb21faW5fc3ViIDwgNTAsIHBvc3RfbnVtIDwgMjApKSArCiAgI2dlb21fcG9pbnQoYWVzKHBvc3RfbnVtLGNvbnRhaW5zX3dlLGNvbG9yPXRvdGFsX251bV9jb21faW5fc3ViKSkrCiAgZ2VvbV9wb2ludChhZXMocG9zdF9udW0sY29udGFpbnNfd2UsY29sb3I9dG90YWxfbnVtX2NvbV9pbl9zdWIpKQopCiAgCiAgZ2dwbG90bHkoCmdncGxvdChmaWx0ZXIoYWxsX3Byb25vdW5zLHRvdGFsX251bV9jb21faW5fc3ViIDwgNTAwLCBwb3N0X251bSA8IDIwMCkpICsKICAjZ2VvbV9wb2ludChhZXMocG9zdF9udW0sY29udGFpbnNfd2UsY29sb3I9dG90YWxfbnVtX2NvbV9pbl9zdWIpKSsKICBnZW9tX3BvaW50KGFlcyh0b3RhbF9udW1fY29tX2luX3N1Yixjb250YWluc193ZSx6ID0gcG9zdF9udW0pKQogICNnZW9tX3Ntb290aChhZXModG90YWxfbnVtX2NvbV9pbl9zdWIsY29udGFpbnNfd2UseiA9IHBvc3RfbnVtKSxzZSA9IEZBTFNFKQopCgogIGZpbHRlcihhbGxfcHJvbm91bnMsdG90YWxfbnVtX2NvbV9pbl9zdWIgPCA1MDAsIHBvc3RfbnVtIDwgMTAwMCkgJT4lCiAgcGxvdF9seSh4PS4kcG9zdF9udW0sIHo9LiRjb250YWluc19pLCB5PS4kdG90YWxfbnVtX2NvbV9pbl9zdWIsIHR5cGU9InNjYXR0ZXIzZCIsIG1vZGU9Im1hcmtlcnMiLCBjb2xvciA9IC4kY29udGFpbnNfd2UpCiAgCiAgZmlsdGVyKGFsbF9wcm9ub3Vucyx0b3RhbF9udW1fY29tX2luX3N1YiA8IDUwMCwgcG9zdF9udW0gPCAxMDAwLCBudW1fdGlsX3F1aXQgPCAzMDApICU+JQogIHBsb3RfbHkoeD0uJHBvc3RfbnVtLCB6PS4kY29udGFpbnNfd2UsIHk9LiRudW1fdGlsX3F1aXQsIHR5cGU9InNjYXR0ZXIzZCIsIG1vZGU9Im1hcmtlcnMiLCBjb2xvciA9IC4kY29udGFpbnNfd2UpCmBgYAojI0ZJTkFMIDMKYGBge3J9CmFsbF9wcm9ub3VucyA8LSBwcm9ub3VuX2J5X3Bvc3RfbnVtICU+JQojZmlsdGVyKHBvc3RfbnVtID4gMCwgdG90YWxfbnVtX2NvbV9pbl9zdWIgPiAxMDApLCAKbXV0YXRlKAogIG51bV90aWxfcXVpdCA9ICh0b3RhbF9udW1fY29tX2luX3N1YiAtIHBvc3RfbnVtKQopICU+JSBmaWx0ZXIobnVtX3RpbF9xdWl0IDwgNSkgJT4lIG11dGF0ZShudW1fdGlsX3F1aXQgPSBhcy5jaGFyYWN0ZXIobnVtX3RpbF9xdWl0KSwgY29udGFpbnNfd2VwY3QgPSBjb250YWluc193ZSoxMDApCgpnZ3Bsb3QoYWxsX3Byb25vdW5zKSsKICBnZW9tX3BvaW50KGFlcyhudW1fdGlsX3F1aXQsY29udGFpbnNfd2UsY29sb3IgPSB0b3RhbF9udW1fY29tX2luX3N1YikpCgogIGxpYnJhcnkoUkNvbG9yQnJld2VyKQojZ2dwbG90bHkoCmdncGxvdChmaWx0ZXIoYWxsX3Byb25vdW5zLCAgcG9zdF9udW0+NSksIGFlcyhwb3N0X251bSxjb250YWluc193ZXBjdCxncm91cD1udW1fdGlsX3F1aXQsIGNvbG9yID0gbnVtX3RpbF9xdWl0KSkgKwogIGdlb21fcG9pbnQoKSsKICBnZW9tX3Ntb290aChzZT1GQUxTRSkrIHRoZW1lX2NsYXNzaWMoYmFzZV9zaXplID0gMTUpICsKICAgbGFicyh0aXRsZSA9ICJDb2xsZWN0aXZlIFByb25vdW4gVXNlIGluIFVzZXJzJyBsYXN0IDUgQ29tbWVudHMgaW4gYSBTdWJyZWRkaXQiICwKICAgICAgIHN1YnRpdGxlID0gIkNvbW1lbnRzIEdyb3VwZWQgYnkgVG90YWwgTnVtYmVyIG9mIENvbW1lbnRzIGluIGEgU3VicmVkZGl0IGFuZCBSZW1haW5pbmcgTnVtYmVyIG9mIGNvbW1lbnRzIHVudGlsIGxhc3QgY29tbWVudFxuSW5jbHVkZXMgYWxsIGNvbW1lbnRzIGZyb20gYWxsIHN1YnJlZGRpdHMgd2hlcmUgdGhlIGF1dGhvciBoYXMgYXQgbGVhc3QgNSBjb21tZW50cyBpbiB0aGF0IHN1YnJlZGRpdCIsCiAgICAgICBjYXB0aW9uID0gIiIpICsgeGxhYigiQXZlcmFnZSBvZiBhbGwgYXV0aG9ycycgTnRoIGNvbW1lbnQgaW4gc3VicmVkZGl0IFgiKSArIHlsYWIoIlBlcmNlbnRhZ2Ugb2YgY29tbWVudHMgd2hpY2ggY29udGFpbiAnV2UnIikgKwogICAgICAgc2NhbGVfY29sb3JfYnJld2VyKHBhbGV0dGU9IlBhaXJlZCIpCiMpCmdnc2F2ZSgiZmluYWwzLnBuZyIpCmBgYAoKCgoKYGBge3J9CgoKc3RhcnRfcG9pbnRzX2FsbF9udW1zIDwtIGFsbF9wcm9ub3VucyAlPiUKICBmaWx0ZXIocG9zdF9udW0gID09IDEpICU+JQogIGdyb3VwX2J5KHRvdGFsX251bV9jb21faW5fc3ViKSAlPiUKICBzdW1tYXJpc2UoCiAgICBvZmZzZXRfaSAgICAgICAgICAgPSBtZWFuKGNvbnRhaW5zX2kgICApLAogICAgb2Zmc2V0X21lICAgICAgICAgID0gbWVhbihjb250YWluc19tZSAgKSwKICAgIG9mZnNldF93ZSAgICAgICAgICA9IG1lYW4oY29udGFpbnNfd2UgICksCiAgICBvZmZzZXRfdXMgICAgICAgICAgPSBtZWFuKGNvbnRhaW5zX3VzICApLAogICAgb2Zmc2V0X3RoZXkgICAgICAgID0gbWVhbihjb250YWluc190aGV5KSwKICAgIG9mZnNldF90aGVtICAgICAgICA9IG1lYW4oY29udGFpbnNfdGhlbSksCiAgICBvZmZzZXRfeW91ICAgICAgICAgPSBtZWFuKGNvbnRhaW5zX3lvdSApLAogICAgb2Zmc2V0X2F2ZXJhZ2VfdXNlID0gbWVhbihjb250YWluc19pK2NvbnRhaW5zX21lK2NvbnRhaW5zX3RoZW0rY29udGFpbnNfd2UrCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29udGFpbnNfdXMrY29udGFpbnNfdGhleStjb250YWluc195b3UpLzcKICApCgphbGxfcHJvbm91bnMgPC0gYWxsX3Byb25vdW5zICU+JQogIGxlZnRfam9pbihzdGFydF9wb2ludHNfYWxsX251bXMsIGJ5ID0gYyggInRvdGFsX251bV9jb21faW5fc3ViIiA9ICJ0b3RhbF9udW1fY29tX2luX3N1YiIpKSAlPiUKICAKICAgICAgIyAgICFzdWJyZWRkaXQgJWluJSBjKCJjaGVtaWNhbHJlYWN0aW9uZ2lmcyIsICJwZXJzb25hbGZpbmFuY2UiKSkgJT4lCiAgICAgICAgIyAgc3VicmVkZGl0ICVpbiUgYygiVGhlX0RvbmFsZCIsICJMYXRlU3RhZ2VDYXBpdGFsaXNtIikKICAgICAgICAjKSAlPiUKICBhcnJhbmdlKHNvcnQocG9zdF9udW0pKSAlPiUKICBncm91cF9ieSggdG90YWxfbnVtX2NvbV9pbl9zdWIpICU+JQogIG11dGF0ZSggCiAgICBaTmNvbnRhaW5zX2kgICAgPSAxMDAqKGNvbnRhaW5zX2kgICAvKG9mZnNldF9pICAgKS0xKSwKICAgIFpOY29udGFpbnNfbWUgICA9IDEwMCooY29udGFpbnNfbWUgIC8ob2Zmc2V0X21lICApLTEpLAogICAgWk5jb250YWluc193ZSAgID0gMTAwKihjb250YWluc193ZSAgLyhvZmZzZXRfd2UgICktMSksCiAgICBaTmNvbnRhaW5zX3VzICAgPSAxMDAqKGNvbnRhaW5zX3VzICAvKG9mZnNldF91cyAgKS0xKSwKICAgIFpOY29udGFpbnNfdGhleSA9IDEwMCooY29udGFpbnNfdGhleS8ob2Zmc2V0X3RoZXkpLTEpLAogICAgWk5jb250YWluc190aGVtID0gMTAwKihjb250YWluc190aGVtLyhvZmZzZXRfdGhlbSktMSksCiAgICBaTmNvbnRhaW5zX3lvdSAgPSAxMDAqKGNvbnRhaW5zX3lvdSAgLyhvZmZzZXRfeW91ICktMSkKICAgICkgJT4lIHVuZ3JvdXAoKQoKZmlsdGVyKGFsbF9wcm9ub3Vucyx0b3RhbF9udW1fY29tX2luX3N1YiA8IDUwMCwgcG9zdF9udW0gPCAxMDAwLCBudW1fdGlsX3F1aXQgPCAzMDApICU+JQogIHBsb3RfbHkoeD0uJHBvc3RfbnVtLCB6PS4kWk5jb250YWluc193ZSwgeT0uJHRvdGFsX251bV9jb21faW5fc3ViLCB0eXBlPSJzY2F0dGVyM2QiLCBtb2RlPSJtYXJrZXJzIiwgY29sb3IgPSAuJFpOY29udGFpbnNfd2UpCgoKZ2dwbG90bHkoCmdncGxvdChmaWx0ZXIoYWxsX3Byb25vdW5zLHRvdGFsX251bV9jb21faW5fc3ViID4gMTUsIHRvdGFsX251bV9jb21faW5fc3ViIDwgMTAwLG51bV90aWxfcXVpdCA+IDUpKSArCiAgZ2VvbV9zbW9vdGgoYWVzKHBvc3RfbnVtLFpOY29udGFpbnNfd2UsZ3JvdXA9dG90YWxfbnVtX2NvbV9pbl9zdWIsY29sb3IgPSB0b3RhbF9udW1fY29tX2luX3N1Yiksc2UgPSBGQUxTRSkKKQoKCmdncGxvdGx5KApnZ3Bsb3QoZmlsdGVyKGFsbF9wcm9ub3Vucyx0b3RhbF9udW1fY29tX2luX3N1YiA+IDE1LCB0b3RhbF9udW1fY29tX2luX3N1YiA8IDQwMCxudW1fdGlsX3F1aXQgPiA1KSkgKwogIGdlb21fc21vb3RoKGFlcyhwb3N0X251bSxaTmNvbnRhaW5zX3dlLCBjb2xvciA9ICJXZSIpKSArCiAgZ2VvbV9zbW9vdGgoYWVzKHBvc3RfbnVtLFpOY29udGFpbnNfaSwgY29sb3IgPSAiSSIpKSArCmdlb21fc21vb3RoKGFlcyhwb3N0X251bSxaTmNvbnRhaW5zX3VzLGNvbG9yID0gIlVzIiAgKSkrCmdlb21fc21vb3RoKGFlcyhwb3N0X251bSxaTmNvbnRhaW5zX3RoZXksY29sb3IgPSAiVGhleSIpKSsKZ2VvbV9zbW9vdGgoYWVzKHBvc3RfbnVtLFpOY29udGFpbnNfdGhlbSxjb2xvciA9ICJUaGVtIikpKwpnZW9tX3Ntb290aChhZXMocG9zdF9udW0sWk5jb250YWluc195b3UsY29sb3IgPSAiWW91IiApKSsKZ2VvbV9zbW9vdGgoYWVzKHBvc3RfbnVtLFpOY29udGFpbnNfbWUsY29sb3IgPSAiTWUiICApKQoKCgoKCgoKCiAgCikKCmdncGxvdGx5KApnZ3Bsb3QoZmlsdGVyKGFsbF9wcm9ub3Vucyx0b3RhbF9udW1fY29tX2luX3N1YiA+IDE1LCB0b3RhbF9udW1fY29tX2luX3N1YiA8IDQwMCxudW1fdGlsX3F1aXQgPiA1KSkgKwogIGdlb21fc21vb3RoKGFlcyhwb3N0X251bSxjb250YWluc193ZSwgY29sb3IgPSAiV2UiKSkgKwogIGdlb21fc21vb3RoKGFlcyhwb3N0X251bSxjb250YWluc19pLCBjb2xvciA9ICJJIikpIAogIAopCmBgYAoKCgo=